home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / HSTV_T.T < prev    next >
Text File  |  1994-01-18  |  5KB  |  106 lines
  1.          ::  For U S Robotics HST modems
  2.     :: Change the next script line to match the speed in initmodem
  3.     :: (in the initmodem subroutine near the end of this file).
  4.  
  5. dialnum    if js2,mnp ife du sp 19200; else sp 57600
  6.     gosub waketb        :: get modem to respond
  7.     pat; pat 9 OK
  8.     put "AT"
  9.           if !js2,mnp put "&M0&B0&H0&R1"
  10.     if js2,mnp put "&M5"  
  11.     if js2,_s put "&H2&I2&R1"
  12.            if js2,_c put "&K1"            :: MNP5 compression
  13.         if js2,_nc put "&K0"           :: No compression
  14.         if js2,v32 put "S13=32"        :: V.32 only, HST defeated
  15.     if js2,hst put "B1"            :: Requests HST  
  16.         if js2,o_hst put "S27=4"       :: HST only, V.32 defeated   
  17.     if js2,a_mnp put "&M4S15=16"   :: MNP4 defeated for error prone lines       
  18.     if js2,300 put "&N1"
  19.     if js2,1200 put "&N2"
  20.     if js2,2400 put "&N3"
  21.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  22.     if "%s3>8" put "S7=70"        : longer wait if long distance
  23.     put "Q0E1V1S10=10\r"; wait -f2
  24.     if %alds if ps3,0 putw "ATS8=10\r"
  25.     put "%mprefix";  put "%s3%alds";  dis -Q
  26.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  27.     put "\r";  dis -t
  28.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  29.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  30.     pat 5l "CONNECT 1200"; pat 6l "CONNECT 2400"; pat 7l "CONNECT FAST"
  31.     pat 8 "NO DIALTONE"; pat 10l "CONNECT 300"
  32.     pat 11l "CONNECT 9600"; pat 12l "CONNECT 19200"
  33.     pat 13 "VOICE"; pat 14 "NO ANSWER"; pat 15l "CONNECT 4800"
  34.     pat 16l "CONNECT 7200";  pat 17l "CONNECT 12000";  pat 18l "CONNECT 14400"
  35.         pat 19l "CONNECT 16800"; pat 20l "CONNECT 21600"
  36.     wait -f72
  37.     while "4&&!L>3" wait -f60    :: wait for a few rings only
  38.     if "n||8||9||2||3||4||13||14" goto sorry
  39.         if "!hARQ" if !%s1 if "11||12||15||16||17||18||19||20" bye; echo "Requires ARQ"; ret   ::Disconnects high speed, non-ARQ 
  40.         if js2,fast if "!hV32" if "!hHST" bye; echo "No Fast Connect"; goto sorry
  41.     dis -d
  42.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  43.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  44.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  45.     if "!hARQ" set s1 ""
  46.     if !%s1 goto ns1
  47.         :: if !Js1,s handshake slow; lput "Handhake SLOW: "   :: for slow HD
  48.         if !Js1,s handshake on; lput "Handshake ON: "
  49.         if "hARQ" echo "ARQ Connected"
  50.     echo "Speed Locked"; goto mm2end
  51. ns1:    if "hMNP" echo "MNP Connected";  handshake both; goto mm2end
  52.         if "hLAPM" echo "LAPM Connected"; handshake both; goto mm2end
  53.         if "hHST" echo "HST Connected"; handshake both; goto mm2end
  54.     if js2,mnp set s2 ""
  55. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  56.     if "1||10" sp 300; echo "300 bps"; goto mm2end
  57.     if 5 sp 1200; goto mm2end
  58.     if 6 sp 2400; goto mm2end
  59.     if "du&&7" sp 9600; echo "9600 bps"; goto mm2end
  60.         if 15 sp 4800; goto mm2end 
  61.         if 16 sp 7200; goto mm2end
  62.         if 11 sp 9600; goto mm2end
  63.         if "7||12" sp 19200; goto mm2end
  64.         if 17 sp 12000; goto mm2end
  65.         if 18 sp 14400; goto mm2end
  66.         if 19 sp 16800; goto mm2end
  67.         if 20 sp 21600; goto mm2end 
  68. sorry:    echo "No Connect Message Detected."
  69.     return
  70. mm2end:    set s9 "y"
  71.         if js1,mnp sleep 15    : for gliches in MM224E
  72.     return
  73.  
  74.     :: If you change the speed below, you MUST change the speed in
  75.     :: lines labelled "dialnum" and "call2" in this file !!!
  76.  
  77. initmodem    pat 0 "OK"
  78.     ife du speed 19200; else speed 57600
  79.     put "AT&F1 X6 &B2\r";  wait -f4        :: HW flow control template
  80.         put "ATS11=40\r"                       :: faster tone dialing   
  81.     put "AT&K3\r";  wait -f4           :: enable v.42bis
  82.     if js0,,aa put "ATE0 Q2 S0=1 S7=18\r";  wait -f5
  83.     put "AT&W\r"; wait -f4
  84.     return
  85.  
  86.  
  87. call1    bye; sp 19200; gosub waketb; putw ATM0H1\r"
  88.     return
  89.  
  90. call2    bye;
  91.     sp 57600         :: Change this to match speed in initmodem
  92.     ife du speed 19200; else speed 57600
  93.     gosub waketb; pat 1 OK
  94.     put "ATX6 Q0 S0=1 &A2 &B2 B0 S28=0 &H1 &I0 &K0 &M4 &R2 &Y0\r"; wait -f2
  95.     :: put "AT&K3 S15=16\r"; wait -f2    :: Dual Standard/v.42bis
  96.     put "AT&K3\r"; wait -f2        :: Dual Standard/v.42bis
  97.     return
  98.  
  99. V_TERBO.T is a modification of HST.T for the new USR Dual Standard V.32 terbo
  100. modem by Mitchell Halperin.  Result codes and messages were modified, redundant
  101. commands were eliminated and a few options added.  I added a line to disconnect
  102. non-ARQ high speed connections as these are unreliable.  "Initmodem" was
  103. modified to use the hardware flow control default template (&F1) and to
  104. eliminate commands which can't be stored in NVRAM (i.e.  Q0, V1, E1).
  105.  
  106.